﻿Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btn_synthesise_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_synthesise.Click
        lbl_revelation.Text = add(tb_thesis.Text, tb_antithesis.Text)
    End Sub

    Private Function add(ByVal str_thesis As String, ByVal str_antithesis As String) As String
        Dim thesis, antithesis, synthesis As Double
        thesis = CDbl(str_thesis)
        antithesis = CDbl(str_antithesis)
        synthesis = thesis + antithesis
        Return CStr(synthesis)
    End Function
End Class